home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
gnu
/
gawk
/
gawk213b.zoo
/
test
/
chem
/
good
< prev
next >
Wrap
Text File
|
1991-05-10
|
7KB
|
272 lines
.PS
copy "./chem.macros"
textht = 0.16; textwid = .1; cwid = 0.12
lineht = 0.2; linewid = 0.2
Last: 0,0
#
# R: ring pointing right double 1,2 3,4 5,6
R:
Last: [
C: 0,0
V0: (0.15,0.259808)
V1: (0.3,4.00474e-09)
V2: (0.15,-0.259808)
V3: (-0.15,-0.259808)
V4: (-0.3,-1.20142e-08)
V5: (-0.15,0.259808)
V6: (0.15,0.259808)
V7: (0.3,2.00237e-08)
line from V1 to V2
line from 0.85<C,V1> to 0.85<C,V2>
line from V2 to V3
line from V3 to V4
line from 0.85<C,V3> to 0.85<C,V4>
line from V4 to V5
line from V5 to V6
line from 0.85<C,V5> to 0.85<C,V6>
line from V6 to V1
] with .V4.w at Last.e
# bond left from R ; OH
Last: bond(0.2, 270, from R.V4.w)
Last: OH: atom("OH", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015) with .R.e at Last.end
# bond -150 from R ; OCH3
Last: bond(0.2, 210, from R.V3.sw)
Last: OCH3: atom("OCH\s-3\d3\u\s+3", 0.42, 0.16, 0.18, 0.16, 0.12, 0.015) with .R.ne at Last.end
# bond right from R ; C
Last: bond(0.2, 90, from R.V1.e)
Last: C: atom("C", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.w at Last.end
# double bond up ; O
Last: doublebond(0.2, 0, from Last.C.n )
Last: O: atom("O", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .C.s at Last.end
# bond right from C ; N
Last: bond(0.2, 90, from C.R.e)
Last: N: atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.w at Last.end
# bond 45 ; C2H5
Last: bond(0.2, 45, from Last.R.ne )
Last: C2H5: atom("C\s-3\d2\u\s+3H\s-3\d5\u\s+3", 0.36, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.sw at Last.end
# bond 135 from N ; C2H5
Last: bond(0.2, 135, from N.R.se)
Last: C2H5: atom("C\s-3\d2\u\s+3H\s-3\d5\u\s+3", 0.36, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.nw at Last.end
.PE
.PS
Last: 0,0
# B: benzene pointing right
B:
Last: [
C: 0,0
V0: (0.15,0.259808)
V1: (0.3,4.00474e-09)
V2: (0.15,-0.259808)
V3: (-0.15,-0.259808)
V4: (-0.3,-1.20142e-08)
V5: (-0.15,0.259808)
V6: (0.15,0.259808)
V7: (0.3,2.00237e-08)
line from V1 to V2
line from V2 to V3
line from V3 to V4
line from V4 to V5
line from V5 to V6
line from V6 to V1
circle rad 0.15 at 0,0
] with .V4.w at Last.e
# F: flatring5 pointing left put N at 5 double 3,4 with .V1 at B.V2
F:
Last: [
C: 0,0
V0: (-0.15,-0.259808)
V1: (-0.3,-1.20142e-08)
V2: (-0.15,0.259808)
V3: (0.15,0.259808)
V4: (0.3,2.00237e-08)
V5: (0.15,-0.259808)
V6: (-0.15,-0.259808)
V7: (-0.3,-2.80332e-08)
V4: V5; V5: V6
line from V1 to V2 chop 0 chop 0
line from V2 to V3 chop 0 chop 0
line from V3 to V4 chop 0 chop 0
line from 0.75<C,V3> to 0.75<C,V4> chop 0 chop 0
line from V4 to V5 chop 0 chop 0.08
V5: ellipse invis ht 0.16 wid 0.12 at V5
N:atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) at V5
line from V5 to V1 chop 0.08 chop 0
] with .V1 at B.V2
# H below F.N
Last: H: atom("H", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .n at F.N.s
# R: ring pointing right with .V4 at B.V6
R:
Last: [
C: 0,0
V0: (0.15,0.259808)
V1: (0.3,4.00474e-09)
V2: (0.15,-0.259808)
V3: (-0.15,-0.259808)
V4: (-0.3,-1.20142e-08)
V5: (-0.15,0.259808)
V6: (0.15,0.259808)
V7: (0.3,2.00237e-08)
line from V1 to V2
line from V2 to V3
line from V3 to V4
line from V4 to V5
line from V5 to V6
line from V6 to V1
] with .V4 at B.V6
# front bond right from R.V6 ; H
Last: frontbond(0.2, 90, from R.V6.e)
Last: H: atom("H", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.w at Last.end
# R: ring pointing right with .V2 at R.V6 put N at 1 double 3,4
R:
Last: [
C: 0,0
V0: (0.15,0.259808)
V1: (0.3,4.00474e-09)
V2: (0.15,-0.259808)
V3: (-0.15,-0.259808)
V4: (-0.3,-1.20142e-08)
V5: (-0.15,0.259808)
V6: (0.15,0.259808)
V7: (0.3,2.00237e-08)
V1: ellipse invis ht 0.16 wid 0.12 at V1
N:atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) at V1
line from V1 to V2 chop 0.08 chop 0
line from V2 to V3 chop 0 chop 0
line from V3 to V4 chop 0 chop 0
line from 0.85<C,V3> to 0.85<C,V4> chop 0 chop 0
line from V4 to V5 chop 0 chop 0
line from V5 to V6 chop 0 chop 0
line from V6 to V1 chop 0 chop 0.08
] with .V2 at R.V6
# bond right from R.N ; CH3
Last: bond(0.2, 90, from R.N.e)
Last: CH3: atom("CH\s-3\d3\u\s+3", 0.3, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.w at Last.end
# back bond -60 from R.V5 ; H
Last: backbond(0.2, 300, from R.V5.nw)
Last: H: atom("H", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .R.se at Last.end
# bond up from R.V5 ; CO
Last: bond(0.2, 0, from R.V5.n)
Last: CO: atom("CO", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015) with .C.s at Last.end
# bond right ; N(C2H5)2
Last: bond(0.2, 90, from Last.R.e )
Last: NC2H52: atom("N(C\s-3\d2\u\s+3H\s-3\d5\u\s+3)\s-3\d2\u\s+3", 0.66, 0.16, 0.24, 0.16, 0.12, 0.015) with .L.w at Last.end
.PE
.PS
Last: 0,0
# R1: ring6 double 1,2
R1:
Last: [
C: 0,0
V0: (-0.259808,0.15)
V1: (0,0.3)
V2: (0.259808,0.15)
V3: (0.259808,-0.15)
V4: (8.00947e-09,-0.3)
V5: (-0.259808,-0.15)
V6: (-0.259808,0.15)
V7: (-1.60189e-08,0.3)
line from V1 to V2
line from 0.85<C,V1> to 0.85<C,V2>
line from V2 to V3
line from V3 to V4
line from V4 to V5
line from V5 to V6
line from V6 to V1
] with .V5.w at Last.e
# bond -60 from R1.V6 ; HO
Last: bond(0.2, 300, from R1.V6.nw)
Last: HO: atom("HO", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015) with .R.se at Last.end
# R2: ring6 with .V1 at R1.V3
R2:
Last: [
C: 0,0
V0: (-0.259808,0.15)
V1: (0,0.3)
V2: (0.259808,0.15)
V3: (0.259808,-0.15)
V4: (8.00947e-09,-0.3)
V5: (-0.259808,-0.15)
V6: (-0.259808,0.15)
V7: (-1.60189e-08,0.3)
line from V1 to V2
line from V2 to V3
line from V3 to V4
line from V4 to V5
line from V5 to V6
line from V6 to V1
] with .V1 at R1.V3
# bond 60 from R2.V2 ; N
Last: bond(0.2, 60, from R2.V2.ne)
Last: N: atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.sw at Last.end
# bond right from N ; CH3
Last: bond(0.2, 90, from N.R.e)
Last: CH3: atom("CH\s-3\d3\u\s+3", 0.3, 0.16, 0.06, 0.16, 0.12, 0.015) with .L.w at Last.end
# R3: benzene with .V1 at R2.V5
R3:
Last: [
C: 0,0
V0: (-0.259808,0.15)
V1: (0,0.3)
V2: (0.259808,0.15)
V3: (0.259808,-0.15)
V4: (8.00947e-09,-0.3)
V5: (-0.259808,-0.15)
V6: (-0.259808,0.15)
V7: (-1.60189e-08,0.3)
line from V1 to V2
line from V2 to V3
line from V3 to V4
line from V4 to V5
line from V5 to V6
line from V6 to V1
circle rad 0.15 at 0,0
] with .V1 at R2.V5
# bond -120 from R3.V5 ; HO
Last: bond(0.2, 240, from R3.V5.sw)
Last: HO: atom("HO", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015) with .R.ne at Last.end
# bond -135 length .3 from R1.V5 ; O
Last: bond(0.3, 225, from R1.V5.sw)
Last: O: atom("O", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .R.ne at Last.end
# bond -45 length .3 from R3.V6
Last: bond(0.3, 315, from R3.V6.nw)
# bond up length .1 from N ; BP
Last: bond(0.1, 0, from N.C.n)
Last: BP: "" ht 0 wid 0 with .s at Last.end
# B1: bond up length .35 from R1.V4
B1:
Last: bond(0.35, 0, from R1.V4.n)
# bond to BP
Last: bond(0, 0, to BP )
.PE